home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / SCRNE1.SDA / ABC-DABRA! (.txt) next >
Commodore BASIC  |  2019-04-13  |  2KB  |  50 lines
  1. 10 REM  ABC-DABRA!
  2. 20 S=49152:E=49555:FORI=STOE:READA%:POKEI,A%:NEXT:C%=7:BA%=6:BO%=2
  3. 30 A$="[193][194][195]-[196][193][194][210][193]![169][169][169][169][169][223][223][223][223][223]PRINTS ALLCHARACTERSFOUR TIMESLARGER..."
  4. 40 PRINT"[147]";CHR$(14);:SYSS,A$,C%,BA%,BO%
  5. 50 GETB$:IFB$=""THEN50
  6. 60 B$="   [218] [211]    [213][192][192][192][192][192][192][192][192][201][194] THANK  [194][194]  YOU   [194][202][192][192][192][192][192][192][192][192][203]   [216] [193]"
  7. 70 PRINT"[147]";CHR$(142);:SYSS,B$,5,0,9:END
  8. 80 REM>>>>>>>>>>   SEE DOCUMENTATION FOR      >>>>>>>>>>   SPECIFIC DETAILS.
  9. 49152 DATA32,115,0,32,139,176,165,13,201,255
  10. 49162 DATA240,1,96,32,231,176,160,2,177,71
  11. 49172 DATA153,61,192,136,208,248,177,71,240,56
  12. 49182 DATA141,83,192,32,155,183,134,2,32,155
  13. 49192 DATA183,142,33,208,32,155,183,142,32,208
  14. 49202 DATA162,0,142,143,193,142,147,193,174,147
  15. 49212 DATA193,189,0,255,141,146,193,232,142,147
  16. 49222 DATA193,32,87,192,240,3,32,210,192,174
  17. 49232 DATA147,193,224,0,208,228,96,173,24,208
  18. 49242 DATA41,7,201,7,240,4,169,208,208,2
  19. 49252 DATA169,216,141,187,192,169,0,141,186,192
  20. 49262 DATA173,146,193,201,32,144,17,201,64,144
  21. 49272 DATA22,201,96,176,5,56,233,64,208,13
  22. 49282 DATA201,160,176,3,169,0,96,201,192,144
  23. 49292 DATA240,41,127,141,146,193,173,14,220,41
  24. 49302 DATA254,141,14,220,165,1,41,251,133,1
  25. 49312 DATA174,146,193,240,16,169,0,24,105,8
  26. 49322 DATA144,3,238,187,192,202,208,245,141,186
  27. 49332 DATA192,162,7,160,0,189,255,255,153,135
  28. 49342 DATA193,200,202,16,246,165,1,9,4,133
  29. 49352 DATA1,173,14,220,9,1,141,14,220,96
  30. 49362 DATA162,7,142,144,193,160,7,140,145,193
  31. 49372 DATA174,144,193,172,145,193,126,135,193,144
  32. 49382 DATA3,32,14,193,206,145,193,16,237,206
  33. 49392 DATA144,193,16,227,172,143,193,200,192,10
  34. 49402 DATA208,14,32,234,232,32,234,232,32,234
  35. 49412 DATA232,32,234,232,160,0,140,143,193,96
  36. 49422 DATA152,172,143,193,208,3,232,16,6,24
  37. 49432 DATA105,8,136,208,250,133,5,134,6,169
  38. 49442 DATA0,133,4,169,50,229,6,70,5,38
  39. 49452 DATA4,106,38,4,133,6,166,4,169,0
  40. 49462 DATA133,4,133,210,56,38,4,202,16,251
  41. 49472 DATA165,6,10,10,101,6,10,38,210,10
  42. 49482 DATA38,210,10,38,210,133,209,169,4,101
  43. 49492 DATA210,133,210,164,5,177,209,162,15,221
  44. 49502 DATA119,193,240,4,202,16,248,96,138,5
  45. 49512 DATA4,170,189,119,193,145,209,32,36,234
  46. 49522 DATA165,2,145,243,96,32,126,123,97,124
  47. 49532 DATA226,255,236,108,127,98,252,225,251,254
  48. 49542 DATA160,0,0,0,0,0,0,0,0,0
  49. 49552 DATA0,0,0,0
  50.